      module mtxDATA
        integer neq_m, maxa_m
        
        integer,dimension(:),allocatable :: na_m,numcol_m
              
      endmodule
      
      subroutine malloc_mat_data
      use mtxDATA
      allocate(numcol_m(neq_m+1))
      allocate(na_m(maxa_m))
      return
      end

      subroutine free_mat_data
      use mtxDATA
      deallocate(numcol_m)
      deallocate(na_m)
      return
      end
